home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)m2.d64 / baseball.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  11KB  |  437 lines
  1. 1 RN=INT(RND(-TI)*10)
  2. 2 QY=0:WA=0:F5=INT(RND(1)*7)+2:F6=INT(RND(1)*7)+2:K5=10:K6=10
  3. 3 S3=54296:S4=54276:S5=54277:S6=54273:S7=54272
  4. 4 W1=54296:W2=54276:W3=54277:W4=54273:W5=54272
  5. 5 A=0:PRINT"[147]PLEASE STAND BY"
  6. 6 A=A+1
  7. 7 IF A=15THEN POKE W2,0:GOTO50
  8. 8 POKE W1,A:POKE W3,47:POKE W4,253:POKE W5,46:POKE W2,128
  9. 9 GOTO 6
  10. 50 IF SW=1THEN 70
  11. 55 SW=1
  12. 60 LOAD"BASEBALL DATA.D",8,1
  13. 70 GOTO 30000
  14. 139 J=1:K=1:L=1:RU=0:M=1:N=1
  15. 140 P1=INT(RND(1)*9)+1
  16. 141 P2=INT(RND(1)*9)+1
  17. 150 FOR A=1TO9
  18. 151 A(A)=INT(RND(1)*275)+100
  19. 152 C(A)=INT(RND(1)*275)+100
  20. 155 NEXT
  21. 156 PRINT"[147]"
  22. 157 PRINT"POSSIBLE TEAM COLOURS: 0-BLACK 1-WHITE"
  23. 158 PRINT"3-CYAN 4-PURPLE 5-GREEN 8-ORANGE "
  24. 159 PRINT"14-BLUE 12-GRAY 7-YELLOW"
  25. 161 INPUT"TEAM 1 NAME:";N1$:INPUT"TEAM 1 COLOUR:";C1$:C1=VAL(C1$)
  26. 162 INPUT"TEAM 2 NAME:";N2$:INPUT"TEAM 1 COLOUR:";C2$:C2=VAL(C2$)
  27. 163 PRINT"[147]"
  28. 164 PRINT"     ";N1$;"         ";N2$
  29. 165 PRINT"   BAT.       AV.    BAT.     AV."
  30. 166 FOR A=1 TO 9
  31. 167 PRINT"   ";A;"      .";A(A);"   ";A;"    .";C(A)
  32. 168 NEXT
  33. 169 PRINT"PITCHER 1:";F5+INT(RND(1)*4)-2,"PITCHER 2:";F6+INT(RND(1)*4)-2
  34. 170 GET W$
  35. 171 IF W$=""THEN170
  36. 199 E1=0:E2=0:H1=0:H2=0:R1=0:R2=0:I=1
  37. 200 FOR A=1TO9
  38. 201 F(A)=0:S(A)=0
  39. 202 NEXT
  40. 210 PRINT"[147]":V=53248:POKE V+21,0
  41. 213 PRINT"          1  2  3   4  5  6   7  8  9 ":PRINT:PRINT
  42. 214 PRINTN1$
  43. 215 PRINTN2$
  44. 216 PRINT"[145][145][145]"
  45. 217 PRINT"";F(1);F(2);F(3);" ";F(4);F(5);F(6);" ";F(7);F(8);F(9)
  46. 218 PRINT"";S(1);S(2);S(3);" ";S(4);S(5);S(6);" ";S(7);S(8);S(9)
  47. 219 PRINT:PRINT:PRINT
  48. 220 PRINT"             RUNS   HITS   ERRORS"
  49. 230 PRINTN1$
  50. 231 PRINTN2$
  51. 232 PRINT"[145][145][145]"
  52. 233 PRINT"";R1;"    ";H1;"    ";E1
  53. 234 PRINT"";R2;"    ";H2;"    ";E2
  54. 240 PRINT"INNING:";I
  55. 250 I=I+.5
  56. 255 IF I=10 THEN 257
  57. 256 GOTO 259
  58. 257 IF R1<R2THEN END
  59. 259 IF I=10.5ANDR1<>R2THEN END
  60. 260 IF I>F5THEN K5=K5-INT(RND(1)*2)+1
  61. 261 IF I>F6THEN K6=K6-INT(RND(1)*2)+1
  62. 262 IF K5<2THEN K5=2
  63. 263 IF K6<2THEN K6=2
  64. 264 IF I=10.5ANDR1=R2THEN I=1:FORA=1TO9:S(A)=0:F(A)=0:NEXT:GOTO210
  65. 270 IFJ=1 THEN J=0:GOTO 290
  66. 271 IF J=0 THEN J=1:GOTO290
  67. 290 GETW$:IF W$="P"THEN 293
  68. 291 IF W$="G"THEN 296
  69. 292 GOTO290
  70. 293 GETW$:IF W$="[133]"THEN F5=INT(RND(1)*3)+F5:PRINT"PITCHER 1:";F5:K5=10:GOTO290
  71. 294 IF W$="[134]"THEN F6=INT(RND(1)*3)+F6:PRINT"PITCHER 2:";F6:K5=10:GOTO290
  72. 295 GOTO 293
  73. 296 IF QY=1THEN GOTO300
  74. 299 SR=0:O=0:BA=0:B(1)=0:B(2)=0:B(3)=0:PRINT"":U=0:Z=0:G=0
  75. 300 X1=0:POKE 53281,6:PRINT"[147]":QY=1:HQ=100:WA=0
  76. 301 PRINT"[154] STRIKES:";SR,"BALLS:";BA
  77. 302 PRINT" OUTS   :";O,"MEN ON:"B(1);B(2);B(3)
  78. 303 IF J=0THENPRINT " AT BAT:";M,"AVERAGE:.";A(M)
  79. 304 IF J=1THENPRINT " AT BAT:";N,"AVERAGE:.";C(N)
  80. 306 PRINT""
  81. 309 PRINT" [151] [162][162][162][162][162][162] "
  82. 310 PRINT"                                       [146][154]"
  83. 330 V=53248:POKEV+0,220:POKEV+1,193:POKEV+39,C1:POKE V+21,7
  84. 331 POKE V+2,50:POKE V+3,188:POKE V+40,C2
  85. 332 POKE V+4,250:POKE V+5,192:POKE V+41,C2
  86. 333 POKE V+23,7:POKE V+29,7
  87. 334 M1=248:M2=245:M3=244:X=80:Y=195
  88. 340 POKE 2040,M1:POKE 2042,M3:POKE 2041,M2
  89. 350 T1=-((PEEK(56321)AND 16)=0)
  90. 360 IF T1=1THEN 370
  91. 361 GETW$:IF W$="[133]"THEN F5=INT(RND(1)*3)+F5:PRINT"PITCHER 1:";F5:K5=10:GOTO3999
  92. 362 IF W$="[134]"THEN F6=INT(RND(1)*3)+F6:PRINT"PITCHER 2:";F6:K5=10:GOTO3999
  93. 363 I9=PEEK(56320)AND15
  94. 364 IF I9=14THEN 20000
  95. 365 GOTO 350
  96. 370 J1=PEEK(56321)AND15
  97. 371 IF J1=11 THENS=14:H=3:T=2:GOTO376
  98. 372 IF J1=15THEN S=18:H=2:T=5:GOTO380
  99. 373 IF J1=7 THENS=19:H=3:T=1:GOTO380
  100. 374 IF J1=14 THEN S=10:T=15:H=1:GOTO380
  101. 375 IF J1=13 THEN S=16:H=2:T=2:GOTO376
  102. 376 IF J=0THEN Q8=K5
  103. 377 IF J=1THEN Q8=K6
  104. 378 Q9=INT(RND(1)*Q8):IF Q9=0THEN J1=7:GOTO 371
  105. 379 IF Q9=1THEN J1=15:GOTO 371
  106. 380 POKE 2041,M2
  107. 385 FOR A=OTO50:NEXT
  108. 386 M2=M2+1
  109. 387 IF M2=248 THEN 390
  110. 388 GOTO 380
  111. 390 V=53248:POKE 2043,255:POKE V+6,X:POKEV+7,Y:POKE V+42,1:POKE V+21,15
  112. 400 T2=-((PEEK(56320)AND 16)=0)
  113. 410 IF T2=1 THEN Z=1
  114. 412 IF Z=0THEN 420
  115. 414 M1=M1+1
  116. 415 IF M1=252THENM1=251
  117. 416 POKE 2040,M1
  118. 420 X=X+S:IF Y<0THENY=0
  119. 421 IF X>243 THEN POKEV+21,7:POKE 54296,0:POKE 54296,15:GOTO470
  120. 422 GOTO 450
  121. 425 X1=X1+1
  122. 430 IF X1=T THENY=Y+H:X1=0
  123. 432 IF Y>217THENY=Y-5
  124. 433 IF Y>240THEN 300
  125. 440 GOTO 390
  126. 450 IF X>233THEN 425
  127. 451 IF X>212 THEN 500
  128. 452 GOTO 425
  129. 470 IF Z=1THEN 480
  130. 471 IF J1=7THEN BA=BA+1:GOTO494
  131. 472 IF J1=14 THEN BA=BA+1:GOTO494
  132. 473 IF J1=15 THEN BA=BA+1:GOTO494
  133. 474 IF J1=10 THEN BA=BA+1:GOTO494
  134. 475 IF J1=9 THEN BA=BA+1:GOTO494
  135. 476 IF J1=6 THEN BA=BA+1:GOTO494
  136. 477 IF J1=5 THEN BA=BA+1:GOTO494
  137. 480 SR=SR+1:Z=0:PRINT"[145][145][145][145][145][145][145][145]STRIKE!":FOR A=0TO2000:NEXT
  138. 481 IF SR=3THEN SR=0:BA=0:O=O+1:PRINT"YOU'RE OUT!":GOTO6000
  139. 482 GOTO 300
  140. 490 IF O=3THENGOTO2000
  141. 491 GOTO300
  142. 494 PRINT"[145][145][145][145][145][145][145][145]BALL!":FOR A=0TO2000:NEXT
  143. 495 IF BA=4 THEN BA=0:SR=0:GOTO7000
  144. 496 GOTO 300
  145. 500 IF M1=250THEN 505
  146. 501 IF M1=249THEN 505
  147. 504 GOTO 425
  148. 505 IF J1=15THEN R=3
  149. 506 IF J1=11THEN R=3
  150. 507 IF J1=14THEN R=6
  151. 508 IF J1=13THEN R=2
  152. 509 IF J1=7THEN R=6
  153. 510 HI=INT(RND(1)*R)
  154. 511 IF HI=0 THEN HT=1
  155. 512 IF HT=1 THEN HT=0:GOTO 3000
  156. 513 GOTO 425
  157. 540 M1=251:POKE 2040,M1
  158. 541 POKE54296,0:POKE 54277,47:POKE 54273,253:POKE 54272,46:POKE 54276,129
  159. 550 IF J1=13 THEN R=6
  160. 551 IF J1=14 THEN R=2
  161. 552 IF J1=7THEN R=2
  162. 553 IF J1=15 THEN R=4
  163. 554 IF J1=11 THEN R=6
  164. 555 HT=INT(RND(1)*R):X1=0
  165. 556 IF HT=0 THEN S=5:H=1:T=1:AU=2:GOTO570
  166. 557 IF HT=1 THEN S=6:H=-10:T=2:AU=5:GOTO570
  167. 558 IF HT=2 THEN S=6:H=-1:T=1:AU=3:GOTO570
  168. 559 IF HT=3 THEN S=10:H=1:T=1:AU=10:GOTO570
  169. 560 IF HT=4 THEN S=5:H=-2:T=5:AU=6:GOTO570
  170. 561 IF HT=5 THEN S=15:H=-5:T=1:AU=15:GOTO570
  171. 570 POKE V+6,X:POKE V+7,Y
  172. 571 POKE 54296,AU
  173. 575 X=X-S
  174. 576 IF X<0THEN 600
  175. 577 X1=X1+1
  176. 578 IF X1=TTHEN Y=Y+H:X1=0
  177. 579 IF Y>217 THEN Y=Y-5
  178. 580 IF Y<0THEN Y=0:GOTO 600
  179. 590 GOTO 570
  180. 600 V=53248:POKE V+21,0:PRINT"[147]""":M4=252:POKE V+21,15:X1=0
  181. 601 E=100:F=210:X=255:Y=Y+10
  182. 605 POKE V+2,0:POKE V+3,255:POKE V+4,0:POKE V+5,0
  183. 606 MA=0
  184. 610 PRINT"   [144][161]"
  185. 611 PRINT"   [144][161]"
  186. 612 PRINT"   [144][161]"
  187. 613 PRINT"   [144][161]"
  188. 614 PRINT"   [144][161]"
  189. 615 PRINT"   [144][161]"
  190. 616 PRINT"                                      [146][154]"
  191. 620 M4=252:POKE 2040,M4:POKE V+0,E:POKE V+1,F:POKE V+39,C2
  192. 630 J1=PEEK(56321)AND15
  193. 640 IF J1=11 THEN E=E-5:M4=252:POKE 2040,M4
  194. 650 IF J1=7 THEN E=E+5:M4=252:POKE 2040,M4
  195. 655 IF E<40THENE=40
  196. 656 IF E>255THEN E=255
  197. 660 IF HT=0 THEN S=5:H=INT(RND(1)*2)+1:T=1:BO=5
  198. 670 IF HT=1 THEN S=6:H=INT(RND(1)*10)+10:T=2:BO=20
  199. 680 IF HT=2 THEN S=6:H=INT(RND(1)*5)+1:T=1:BO=5
  200. 690 IF HT=3 THEN S=10:H=INT(RND(1)*5)+1:T=1:BO=5
  201. 700 IF HT=4 THEN S=5:H=INT(RND(1)*6)+2:T=3:BO=7
  202. 710 IF HT=5 THEN S=15:H=INT(RND(1)*10)+5:T=1:BO=16
  203. 719 IF HT=5 THEN X=INT(RND(1)*20)+234
  204. 720 IF HT<>5THEN GOTO 750
  205. 721 IF J=0THEN PU=A(M)
  206. 722 IF J=1THEN PU=C(N)
  207. 723 IF PU>300THEN HR=30:GOTO 726
  208. 724 HR=50
  209. 726 HQ=INT(RND(1)*HR)
  210. 727 IF HQ<5 THENS=15:H=2:T=1:BO=10
  211. 750 M4=252:POKE 2040,M4:POKE V+0,E:POKE V+1,F:POKE V+40,39:POKE V+21,9
  212. 760 J1=PEEK(56321)AND15
  213. 780 IF J1=11 THEN E=E-5:M4=253:POKE 2040,M4
  214. 790 IF J1=7 THEN E=E+5:M4=253:POKE 2040,M4
  215. 800 IF E<40THENE=40
  216. 810 IF E>255THEN E=255
  217. 820 POKE 2043,255:POKE V+6,X:POKE V+7,Y:POKE V+42,1
  218. 830 X1=X1+1
  219. 840 IF X1=T THEN Y=Y+H:X1=0
  220. 850 IF Y>231 THEN Y=Y-BO:G=1
  221. 855 X=X-S
  222. 856 IF HQ<5THEN GOTO 869
  223. 860 IF X<30 THEN X=31:WA=1
  224. 861 T1=-((PEEK(56321)AND16)=0)
  225. 862 IF T1=1 THEN U=1
  226. 863 IF U=0THEN GOTO867
  227. 864 F=F-4
  228. 865 IF F<195 THEN F=210:U=0
  229. 867 MA=MA+PEEK(V+30)AND8
  230. 868 IF MA=0THEN:GOTO900
  231. 869 IF X<0THEN 9000
  232. 870 GOTO 750
  233. 900 POKE V+21,1:F=210:POKE V+0,E:POKE V+1,F
  234. 901 POKE 54296,0:POKE 54296,15:POKE 54276,0
  235. 919 GOTO 921
  236. 920 POKE 2040,254:GOTO940
  237. 921 J9=PEEK(56321)AND15
  238. 922 IF J9=14THEN J9=2:GOTO920
  239. 923 IF J9=13THEN J9=4:GOTO920
  240. 924 IF J9=11THEN J9=3:GOTO920
  241. 925 IF J9=7 THEN J9=1:GOTO920
  242. 930 GOTO 921
  243. 940 Y=210:X=E+10
  244. 950 POKE V+21,9:POKE 2043,255:POKE V+6,X:POKE V+7,Y
  245. 960 X=X+5
  246. 970 IF X>255 THENZ=0:GOTO1000
  247. 980 GOTO 950
  248. 1000 IF J=0THEN PE=A(M)
  249. 1001 IF J=1THEN PE=C(N)
  250. 1002 IF HT=0 THEN 1100
  251. 1010 IF HT=1 THEN 1200
  252. 1020 IF HT=2 THEN 1300
  253. 1030 IF HT=3 THEN 1400
  254. 1040 IF HT=4 THEN 1500
  255. 1050 IF HT=5 THEN 1600
  256. 1100 IF PE>250 THEN HR=3:GOTO1150
  257. 1101 HR=4
  258. 1150 HQ=INT(RND(1)*HR)
  259. 1152 IF HQ=1THEN AB=1:GOTO1800
  260. 1153 GOTO 1900
  261. 1200 IF G=0THEN GOTO1900
  262. 1210 IF PE>300THEN HR=2:GOTO1250
  263. 1211 HR=1
  264. 1250 HQ=INT(RND(1)*HR)
  265. 1251 IF HQ=0THEN AB=1:GOTO 1800
  266. 1252 IF HQ=1THEN AB=2:GOTO 1800
  267. 1253 GOTO1900
  268. 1300 IF G=0THENGOTO1900
  269. 1301 HQ=INT(RND(1)*3)
  270. 1310 IF HQ=1THENAB=1:GOTO 1800
  271. 1400 IF PE>330 THEN HR=3:GOTO1450
  272. 1410 IF PE>200 THEN HR=2:GOTO1450
  273. 1411 HQ=INT(RND(1)*3)
  274. 1412 IF HQ=2THEN AB=1:GOTO1800
  275. 1413 IF WA=1THEN WA=0:AB=1:GOTO11000
  276. 1420 GOTO1900
  277. 1450 HQ=INT(RND(1)*HR)+2
  278. 1452 IF HQ=3THENAB=1:GOTO1800
  279. 1453 IF HQ=4THENAB=2:GOTO1800
  280. 1454 GOTO1900
  281. 1500 IF G=0THEN 1900
  282. 1510 IFPE>250THENHR=3:GOTO1550
  283. 1520 AB=1:GOTO1800
  284. 1550 HQ=INT(RND(1)*HR)
  285. 1551 IF HQ=0THEN AB=2:GOTO1800
  286. 1552 IF HQ=1THEN 1900
  287. 1553 AB=1:GOTO 1800
  288. 1600 IF G=0THEN 1900
  289. 1610 IF PE>340THEN AB=3:GOTO1800
  290. 1620 HQ=INT(RND(1)*3)
  291. 1625 IF HQ=0THEN AB=2:GOTO1800
  292. 1630 AB=1:GOTO 1800
  293. 1800 G=0
  294. 1801 IF AB=1THEN PRINT"[145][145][145][145][145][145][145][145]SINGLE!":FOR A=0TO200:NEXT:GOTO 5000
  295. 1802 IF AB=2THEN PRINT"[145][145][145][145][145][145][145][145]DOUBLE!":FOR A=0TO200:NEXT:GOTO 5000
  296. 1803 IF AB=3THEN PRINT"[145][145][145][145][145][145][145][145]TRIPLE!":FOR A=0TO200:NEXT:GOTO 5000
  297. 1900 G=0
  298. 1902 IF HT=3THEN1949
  299. 1903 IF HT=0THEN1949
  300. 1905 PRINT"[145][145][145][145][145][145][145][145]OUT!":O=O+1:FOR A=0TO2000:NEXT
  301. 1906 IF O=3THEN 2000
  302. 1907 SR=0:BA=0
  303. 1908 IF J=0THEN M=M+1
  304. 1909 IF M>9THENM=1
  305. 1910 IF J=1THEN N=N+1
  306. 1911 IF N>9THEN N=1
  307. 1912 GOTO300
  308. 1949 OT=INT(RND(1)*4)
  309. 1950 IF J9=1THEN1961
  310. 1951 IF J9=2THEN1969
  311. 1952 IF J9=3THEN1979
  312. 1953 IF J9=4THEN1989
  313. 1960 OT=INT(RND(1)*4)
  314. 1961 IF OT=1THEN AB=1:GOTO 1800
  315. 1962 GOTO 1905
  316. 1969 IF OT=1THEN AB=1:GOTO 1800
  317. 1970 IF B(1)=1THEN B(1)=0:AB=1:PRINT"[145][145][145][145][145][145][145][145]OUT 2":GOTO 1974
  318. 1972 AB=1:GOTO 1800
  319. 1974 FOR A=0TO2000:NEXT:O=O+1
  320. 1975 IF O=3THEN2000
  321. 1976 GOTO 5000
  322. 1979 IF OT=1THEN AB=1:GOTO 1800
  323. 1980 IF B(2)=1THEN B(2)=0:AB=1:PRINT"[145][145][145][145][145][145][145][145]OUT 3":GOTO1985
  324. 1981 AB=1:GOTO 1800
  325. 1985 O=O+1:FOR A=0TO2000:NEXT
  326. 1986 IF O=3THEN2000
  327. 1987 GOTO 5000
  328. 1989 IF OT=1THEN AB=1:GOTO 1800
  329. 1990 IF B(3)=1THEN B(3)=0:AB=1:PRINT"[145][145][145][145][145][145][145][145]OUT 4":GOTO1995
  330. 1992 AB=1:GOTO1800
  331. 1995 FORA=0TO2000:NEXT:O=O+1
  332. 1996 IF O=3THEN 2000
  333. 1997 GOTO5000
  334. 2000 IFJ=0THEN2006
  335. 2005 IF J=1 THEN 2007
  336. 2006 F(L)=RU:R1=R1+RU:O=0:L=L+1:C2=C1:C1=VAL(C2$):RU=0:BA=0:SR=0:GOTO8000
  337. 2007 S(K)=RU:R2=R2+RU:O=0:K=K+1:C2=C1:RU=0:C1=VAL(C1$):BA=0:SR=0:GOTO8000
  338. 3000 W1=54296:W2=54276:W3=54277:W4=54273:W5=54272
  339. 3001 A=15
  340. 3002 A=A-1
  341. 3003 IF A=10THEN POKEW2,0:GOTO540
  342. 3004 POKE W1,A:POKE W3,7:POKE W4,40:POKE W5,200:POKE W2,129
  343. 3005 GOTO 3002
  344. 3999 AB=1
  345. 4000 W1=54296:W2=54276:W3=54277:W4=54273:W5=54272:A9=0
  346. 4001 A=0:A9=A9+1
  347. 4002 A=A+1
  348. 4003 IF A=15THEN GOTO 4500
  349. 4004 POKE W1,A:POKE W3,47:POKE W4,253:POKE W5,46:POKE W2,129
  350. 4005 GOTO 4002
  351. 4500 W1=54296:W2=54276:W3=54277:W4=54273:W5=54272
  352. 4501 A=15
  353. 4502 A=A-1
  354. 4503 IF A=0THEN POKE W1,15:POKE W2,0:GOTO4600
  355. 4504 POKE W1,A:POKE W3,175:POKE W4,253:POKE W5,46:POKE W2,129
  356. 4505 GOTO 4502
  357. 4600 IF A9=ABTHEN 300
  358. 4601 GOTO4001
  359. 5000 IF J=0THEN M=M+1:H1=H1+1
  360. 5001 IF J=1THEN N=N+1:H2=H2+1
  361. 5002 IF N>9THEN N=1
  362. 5003 IF M>9THEN M=1
  363. 5004 BA=0:SR=0
  364. 5005 IF B(1)=0 THEN B(1)=1:GOTO 5100
  365. 5006 IF B(1)=1THEN B(1)=1:B(2)=B(2)+1:GOTO5150
  366. 5100 IF B(2)=1THEN B(3)=B(3)+1:B(2)=0:IF B(3)=1THEN 5200
  367. 5101 IF B(3)=2THEN B(3)=1:RU=RU+1:GOTO 5200
  368. 5103 IF B(3)=1THEN B(3)=0:RU=RU+1
  369. 5104 GOTO 5200
  370. 5150 IF B(2)=2THEN B(3)=B(3)+1:B(2)=1
  371. 5151 IF B(3)=2THEN RU=RU+1:B(3)=1
  372. 5200 IF AB=1THEN4000
  373. 5202 IF B(1)=1THEN B(1)=0:B(2)=B(2)+1:IF B(2)=1THEN 5303
  374. 5203 IF B(2)=2THEN B(3)=B(3)+1:B(2)=1:IF B(3)=1THEN 5400
  375. 5204 IF B(3)=2THEN B(3)=1:RU=RU+1:GOTO 5400
  376. 5300 IF B(2)=1THEN B(3)=B(3)+1:B(2)=0:IF B(3)=1THEN 5400
  377. 5301 IF B(3)=2THEN B(3)=1:RU=RU+1:GOTO 5400
  378. 5303 IF B(3)=1THEN B(3)=0:RU=RU+1
  379. 5304 GOTO 5400
  380. 5400 IF AB=2THEN GOTO4000
  381. 5402 IF B(1)=1THEN B(1)=0:B(2)=B(2)+1:IF B(2)=1THEN 5503
  382. 5403 IF B(2)=2THEN B(3)=B(3)+1:B(2)=1:IF B(3)=1THEN 5600
  383. 5404 IF B(3)=2THEN B(3)=1:RU=RU+1:GOTO 5600
  384. 5500 IF B(2)=1THEN B(3)=B(3)+1:B(2)=0:IF B(3)=1THEN 5600
  385. 5501 IF B(3)=2THEN B(3)=1:RU=RU+1:GOTO 5600
  386. 5503 IF B(3)=1THEN B(3)=0:RU=RU+1
  387. 5504 GOTO 5600
  388. 5600 GOTO4000
  389. 5998 IF J=0THEN H1=H1+1
  390. 5999 IF J=1THEN H2=H2+1
  391. 6000 IF J=0THEN M=M+1
  392. 6001 IF M>9THEN M=1
  393. 6002 IF J=1THEN N=N+1
  394. 6003 IF N>9THEN N=1
  395. 6004 IF O=3THEN FOR A=0TO2000:NEXT:GOTO2000
  396. 6005 FOR A=0TO500:NEXT:GOTO 300
  397. 7000 IF B(1)=0THEN B(1)=1:GOTO300
  398. 7001 IF B(1)=1THEN B(2)=B(2)+1:B(1)=1:IF B(2)=1THEN 300
  399. 7002 B(3)=B(3)+1:B(2)=1:IF B(3)=1THEN 300
  400. 7003 RU=RU+1:B(3)=1:GOTO300
  401. 8000 B(1)=0:B(2)=0:B(3)=0:GOTO210
  402. 9000 PRINT"[145][145][145][145][145][145][145][145]HOME RUN!":FOR A=0TO2000:NEXT
  403. 9010 RU=RU+1:SR=0:BA=0
  404. 9011 IF B(1)=1THEN B(1)=0:RU=RU+1
  405. 9012 IF B(2)=1THENB(2)=0:RU=RU+1
  406. 9013 IF B(3)=1THEN B(3)=0:RU=RU+1
  407. 9020 Z=0:GOTO5998
  408. 11000 IF J=0THEN E2=E2+1:H1=H1-1:PRINT"[145][145][145][145][145][145][145][145]ERROR!":GOTO11050
  409. 11001 IF J=1THEN E1=E1+1:H2=H2-1:PRINT"[145][145][145][145][145][145][145][145]ERROR!":GOTO 11060
  410. 11050 FOR A=0TO2000:NEXT:AB=1:GOTO5000
  411. 11060 FOR A=0TO2000:NEXT:AB=1:GOTO5000
  412. 20000 IF B(3)=1THEN I3=100:GOTO21000
  413. 20010 IF B(2)=1THEN I3=80:GOTO21000
  414. 20020 IF B(1)=1THEN I3=50:GOTO21000
  415. 20030 GOTO 370
  416. 21000 I4=INT(RND(1)*I3)
  417. 21100 IF I4<10THEN 22000
  418. 21150 PRINT"[145][145][145][145][145][145][145][145]CAUGHT STEALING!":O=O+1:FOR A=0TO200:NEXT:GOTO23000
  419. 22000 PRINT"[145][145][145][145][145][145][145][145]SAFE!!!":AB=1:FOR A=0TO200:NEXT
  420. 22100 IF B(3)=1THEN RU=RU+1:GOTO4000
  421. 22200 IF B(2)=1THEN B(2)=0:B(3)=1:GOTO 4000
  422. 22300 IF B(1)=1THEN B(1)=0:B(2)=1:GOTO 4000
  423. 23000 IF B(3)=1THEN B(3)=0:GOTO 6000
  424. 23100 IF B(2)=1THEN B(2)=0:GOTO6000
  425. 23200 IF B(1)=1THEN B(1)=0:GOTO6000
  426. 30000 POKE 53280,0:POKE53281,0
  427. 30001 PRINT"[147]"
  428. 30002 PRINT"    [209][209]   [209][160][160][160][209][209][160][209][209][209][160][209][209][160][160][160][209][160][160][209][160][160][160][209]  "
  429. 30003 PRINT"    [209][160][209][160][209][160][209][160][209][160][160][160][209][160][160][160][209][160][209][160][209][160][209][160][209]   [209]  "
  430. 30004 PRINT"    [209][209] [160][209][209][209][160][160][209][160][160][209][209][160][160][209][209]  [209][209][209][160][209][160][160][160][209]  "
  431. 30005 PRINT"    [209][160][209][160][209][160][209][160][160][160][209][160][209][160][160][160][209][160][209][160][209][160][209][160][209]   [209]  "
  432. 30006 PRINT"    [209][209][160][160][209][160][209][160][209][209]  [209][209][209][160][209][209] [160][209][160][209][160][209][209][209][160][209][209][209]"
  433. 30007 PRINT"               BY"
  434. 30008 PRINT"                   ROBERT COOPER"
  435. 30009 GETG$:IF G$><""THENPOKE 53280,14:POKE 53281,6:PRINT"[147]":GOTO139
  436. 30010 GOTO 30009
  437.